home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / libs / dfunclib.lha / dfunc_library / includes / Digital.macs < prev    next >
Text File  |  1995-08-09  |  2KB  |  115 lines
  1. *    MACROS for sources by Kenneth C. Nilsen (Digital Surface)
  2.  
  3. OpenLib    MACRO            OpenLib    Library,Version
  4.     lea    \1N(pc),a1
  5.     moveq    #\2,d0
  6.     jsr    -552(a6)
  7.     move.l    d0,\1B
  8.     ENDM
  9.  
  10. CloseLib    MACRO        CloseLib Library
  11.     move.l    \1B(pc),d0
  12.     beq.b    *+8
  13.     move.l    d0,a1
  14.     jsr    -414(a6)
  15.     ENDM
  16.  
  17. CloseWin    Macro        CloseWin <WinBase>
  18.     move.l    \1(pc),d0
  19.     beq.b    *+8
  20.     move.l    d0,a0
  21.     jsr    _LVOCloseWindow(a6)
  22.     EndM
  23.  
  24. CloseScr    Macro        CloseScr <ScrBase>
  25.     move.l    \1(pc),d0
  26.     beq.b    *+8
  27.     move.l    d0,a0
  28.     jsr    _LVOCloseScreen(a6)
  29.     EndM
  30.  
  31. Base    MACRO            Base LibN
  32.     move.l    \1B(pc),a6
  33.     ENDM
  34.  
  35. ExecB    MACRO            move Execbase to a6
  36.     move.l    $4.w,a6
  37.     ENDM
  38.  
  39. Pen    MACRO
  40.     moveq    #\1,d0
  41.     jsr    -78(a6)
  42.     ENDM
  43.  
  44. StackOn    MACRO
  45.     movem.l    d2-d7/a2-a6,-(sp)
  46.     ENDM
  47.  
  48. StackOff MACRO
  49.     movem.l    (sp)+,d2-d7/a2-a6
  50.     ENDM
  51.  
  52. SetPen    MACRO            SetPen Color
  53.     move.l    a5,a1
  54.     moveq    #\1,d0
  55.     jsr    -342(a6)
  56.     ENDM
  57.  
  58. Box    MACRO            Box X1,Y1,X2,Y2
  59.     move.l    a5,a1
  60.     move.l    \1,d0
  61.     move.l    \2,d1
  62.     move.l    \3,d2
  63.     move.l    \4,d3
  64.     jsr    -306(a6)
  65.     ENDM
  66.  
  67. LineC    MACRO            LineC X1,Y1,X2,Y2,Color
  68.     move.l    a5,a1
  69.     moveq    #\5,d0
  70.     jsr    -342(a6)
  71.     move.l    a5,a1
  72.     move.l    \1,d0
  73.     move.l    \2,d1
  74.     jsr    -240(a6)
  75.     move.l    a5,a1
  76.     move.l    \3,d0
  77.     move.l    \4,d1
  78.     jsr    -246(a6)
  79.     ENDM
  80.  
  81. Line    MACRO            Line X1,Y1,X2,Y2
  82.     move.l    a5,a1
  83.     move.l    \1,d0
  84.     move.l    \2,d1
  85.     jsr    -240(a6)
  86.     move.l    a5,a1
  87.     move.l    \3,d0
  88.     move.l    \4,d1
  89.     jsr    -246(a6)
  90.     ENDM
  91.  
  92. LineW    MACRO            LineW X1,Y1,X2,Y2
  93.     move.l    a5,a1
  94.     move.w    \1,d0
  95.     move.w    \2,d1
  96.     jsr    -240(a6)
  97.     move.l    a5,a1
  98.     move.w    \3,d0
  99.     move.w    \4,d1
  100.     jsr    -246(a6)
  101.     ENDM
  102.  
  103. DCall    MACRO
  104.     jsr    _LVODF\1(a6)
  105.     ENDM
  106.  
  107. Call    MACRO
  108.     jsr    _LVO\1(a6)
  109.     ENDM
  110.  
  111. PrtCmd    MACRO            PrtCmd ComandName
  112.     move.l    #PRTCMD_\1,d0
  113. ;    jsr    LVODF_PrintComand(a6)
  114.     ENDM
  115.